home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
modula2f.zip
/
DISKTEST.MOD
< prev
next >
Wrap
Text File
|
1992-05-19
|
1KB
|
38 lines
MODULE Disk;
FROM DOSdisk IMPORT SetDrive, Chdir, GetDir, FindFirst, FindNext, FindAttr,
FindTime, FindDate, FindLength, FindName;
FROM Text IMPORT WriteCard, WriteString, Write, WriteLn;
FROM InOut IMPORT WriteLongCard;
VAR error,attr,a,b,c:CARDINAL;
dir:ARRAY [0..12] OF CHAR;
current:ARRAY [0..64] OF CHAR;
name:ARRAY [0..12] OF CHAR;
len:LONGCARD;
BEGIN
SetDrive('c');
dir := '\DOS';
Chdir(dir,error);
WriteCard(error,5);
GetDir(current);
WriteLn;
WriteString(current); WriteLn;
FindFirst('*.COM',22,error);
WriteCard(error,5); WriteLn;
REPEAT
FindName(name);
WriteString(name);
FindLength(len);
WriteLongCard(len,8);
FindTime(a,b,c);
WriteCard(a,4);Write(':');WriteCard(b,1);WriteCard(c,1);
FindDate(a,b,c);
WriteCard(a,4);Write('-');WriteCard(b,2);Write('-');WriteCard(c,4);
FindAttr(attr);
WriteCard(attr,3);
WriteLn;
FindNext(error);
UNTIL error <> 0;
END Disk.